Select Code to Download

use 5.006;
use ExtUtils::MakeMaker;
...

EOF
}

...
    );
    $msg->send();
}

#!/usr/bin/perl

...
    }
}

while(my $row = $sth->fetchrow_hashref ){
        push @users, { name => $row->{user} , pc => $row->{pcname} };
...
            return "z";
        }
}

#!/usr/bin/perl -w

...
   $oPrepare .= "/";    
   return $oPrepare;
}

SET echo on;

...
);

/