0byt3m1n1

Path: /data/0/0/16/102/16102/user/16456/cgi-bin/ [ Home ]

File: version.pl

#!/usr/bin/perl

print "Content-type:text/html\n\n";

print ("Hello world!\n");

### REQ perl version
print "\nChecking for PERL version:\n-----------------------------\n";
$rpv = $versions{"perl"};
if ($] ge $versions{"perl"}){
    print "your version of perl is OK ($]  >= $rpv)\n";
}else {
    print "Your version of perl is TOO OLD ($]  < $rpv)\nPlease INSTALL a new one !\n";
}