use warnings;
use strict;

my $file;
my $data;

print "Please enter the file name: ";
chomp($file = <STDIN>);

open IMG, $file or die "Error : $!\n";
binmode IMG;

$data = do{local $/; <IMG>};
close IMG, $file or die "Error : $!\n";