package packageName;
sub routine {
        print $strng;
        return "Done";
}
1;