Guest User

Untitled

a guest
Oct 21st, 2018
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.19 KB | None | 0 0
  1. !#/bin/perl
  2.  
  3. $now = localtime();
  4. $myname = "Tristan";
  5.  
  6. print <<`EOF`;
  7.  
  8. Content-type: text/html
  9.  
  10. <HTML>
  11. <HEAD>
  12. </HEAD>
  13. <BODY>
  14. <p>
  15. Today's date is $date<br>
  16. </p>
  17. </BODY>
  18. </HTML>
Add Comment
Please, Sign In to add comment