if (! defined $ARGV[0]){
    print "Usage: script.pl <directory>\n";
    exit;
}

my $dir = $ARGV[0];
my $str = listfiles($dir);

...