#! perl -slw
use strict;

my @files = glob("*"); 
print "Files matched via glob pattern *: @files\n";
__END__