# WARNING: THIS CODE HAS A SECURITY HOLE print "Which file to show? "; chomp( my $f = ); die "bad filename" if $f=~/\.\./; # don't allow updirs system("cat /sharedfiles/$f")==0 or die "command failed, \$?=$?";