Select Code to Download

#!/usr/bin/perl

...
    utime $atime, $mtime, $file;
    chmod $mode & 07777, $file;
}

package SVGN;

...
}

1;