$filename = "/tmp/afile";
open(f, '<', $filename);
seek(f, 0, 2);
$size = tell(f);
print("File size in bytes: ", $size, "\n");
$filename = "/tmp/afile";
open(f, '<', $filename);
seek(f, 0, 2);
$size = tell(f);
print("File size in bytes: ", $size, "\n");