Select Code to Download

#!/usr/bin/perl

...
    close FH;
    print '[6] actual size is:    ' . ( -s $file ) . "\n";
}

joerg@Marvin:~> '/home/joerg/bytes_pragma.pl'
[1] is_utf8() returns: false
...
[6] is_utf8() returns: true
[6] length() returns:  2 (use bytes)
[6] actual size is:    2