perl -e 'open IN, $ARGV[0]; while (<IN>) { $size += length } print "Size is: $size\n\n";' Your_file_name_here