#!/usr/bin/perl -wT

    use strict;
    use MyModule;   # Your important module(s)

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

##</code><code>##

    % chmod 4755 theprogram