Select Code to Download

#! perl -slw
use strict;
...
    $n++ while -e "$logname.$n";
    rename $logname, "$logname.$n";
}

#! perl -sw
use strict;
...
while( <LOG> ) {
    print;
}