open FILE, "Filename" || die;
@file = <FILE>;
close FILE;
$file = join( "", @file);
if ( $file ne "" )
{
	#there's something there!
}