pastebin

Content-type: text/html
  1. #!C:/indigoampp/perl-5.12.1/bin/perl
  2.  
  3. #!/usr/bin/perl
  4. # info.cgi
  5. use strict;
  6. my($host, $date);
  7. chomp($host = `/bin/hostname`);
  8. chomp($date = `/bin/date`);
  9. print "Content-type: text/html\n";
  10. print "\n";
  11. print "<html>\n";
  12. print "<head>\n";
  13. print "<title>System Information</title>\n";
  14. print "</head>\n";
  15. print "<body bgcolor=\"#520063\" text=\"#ffffff\">\n";
  16. print "<h1>Hello from $host!</h1>\n";
  17. print "The current time is now: $date\n";
  18. print "</body>\n"; print "</html>\n";
Parsed in 0.007 seconds