Select Code to Download

#!/usr/bin/perl
#
...

        print "Mail send to $adminmail : \n$text";
}

#!/usr/bin/perl -w
#
...
        }
        print;
}