2013-08-19 アリバイ的な perl use strict; use warnings; use Test::More; use Cwd 'getcwd'; is(getcwd,"test"); done_testing;use strict; use warnings; use Cwd 'getcwd'; my $dir = getcwd; opendir my $dh,$dir; while(my $file = readdir($dh)){ print $file."\n"; } closedir $dh;