my $file = "test.txt";
my $File_Handler;
	
open( $File_Handler , '<'. $file ) or die "Open $file: $!";
read( $test, my $data , -s $file );
close( $File_Handler);