#!/sw/bin/perl

use strict;
use warnings;
use File::Glob ':glob';

my @files = </sw/bin/*>;
foreach my $file (@files) {
   print $file . "\n";
}