Select Code to Download

BEGIN { unshift @INC, ".lib/"; }
use DBI;
use CGI;

#!/usr/bin/perl -w
use strict;
...
BEGIN { vars qw( $VERSION $var ) }
$var = 5;
print __PACKAGE__,"\n",$var,"\n";