package MyFunctions;
# save this as MyFunctions.pm

sub say_hello {
  shift ;             # discard class name: perldoc perlboot
  print "Hello @_\n"
}

sub list_dir {
  shift ;             # discard class name

  require Cwd;
  my $owd = Cwd::cwd();
  my $dir = shift;
  chdir $dir or die "chdir $dir: $!\n";

  print $_ . "\n" while <*> ;
   
  chdir $owd;
}


1;