my $filename = "test.pl";
my $size = -s $filename;
unless ($size) {
	die "error getting file size [$filename]: [$!]";
}