Select Code to Download

    #!/usr/bin/perl -wT

    use strict;
...

    # Now do something as the suid user
    MyModule::DoSomething();