Select Code to Download

mystart($LumberFile);
sub mystart {
    my ($file) = @_;
    open( my $fh, "> $file" ) or die ...

#!/usr/bin/perl
use warnings;
...
        print $fh "$line\n";
    }
}

#!/usr/bin/perl
package VRML;
...
}

1;