linger入学式のコード

filenames.pl

#!/usr/bin/env perl
#use 5.012;
use warnings;
use strict;

#foreach (glob ('*')) {
#  my $dest = readlink $_;
#  print "$_ -> $dest\n" if defined $dest;
#}

my @filenames= glob('*');
for my $filename (@filenames){
  print "$filename\n";
}
__END__