#!/usr/local/bin/perl
# Jaime Prilusky, 2003
# glob [glob EXPR] Returns the value of EXPR with filename expansions 
# such as the standard Unix shell /bin/csh would do.

  my $home_directory = glob("~");
  print "home directory is $home_directory\n";

  print "directory to list: ";
  my $dir = <>; chomp($dir); 

  foreach my $file (glob("$dir/*")) {
    print $file,"\n";
  }