????

Your IP : 18.221.116.226

Current Path : /home2/morganrand/backup.morganrand.com/coupon/cgi-bin/
Upload File :
Current File : /home2/morganrand/backup.morganrand.com/coupon/cgi-bin/mcodie.cgi

#!/usr/bin/perl

  print( STDOUT "Content-type: text/html", "\n\n" );
  ($i1,$i2,$i3,$i4) = split(/\./,$ENV{'REMOTE_ADDR'},4);
  print "Your Reference Code is ";
  printf "%.2X%.2X%.2X", $i3,$i4,$i2;
  exit;