Select Code to Download

    $sym = gensym;
    open($sym, "filename");

#!/usr/bin/perl -w
use strict;
...
}

writelog("logfile","using lexically scoped var");