Select Code to Download

package Tie::Scalar::Logged;
...
$var =  10;
$var += 10;
print $var, "\n";

$self->{LOG} = new IO::File ">> $logfile" or
    die "Can't open $logfile for append: $!\n";