#!/usr/bin/perl  
use strict;
use warnings;

print "What is the file? ";
my $filename = <STDIN>;
chomp($filename);

open(FILE,$filename) or die "Oops: open '$filename' failed";
local $/=undef;  # slurp whole files
my $stuff = <FILE>;
print "I read : \n";
print $stuff;
print "Done.\n";

