OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
doc
/
libcgi-pm-perl
/
examples
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
02/11/2020 08:10:07 AM
rwxr-xr-x
📄
clickable_image.cgi
1.4 KB
12/12/2017 09:11:51 PM
rwxr-xr-x
📄
cookie.cgi
2.74 KB
12/12/2017 09:11:51 PM
rwxr-xr-x
📄
crash.cgi
158 bytes
12/12/2017 09:11:51 PM
rwxr-xr-x
📄
file_upload.cgi
2.39 KB
12/12/2017 09:11:51 PM
rwxr-xr-x
📄
mojo_proxy.pl
805 bytes
12/12/2017 09:11:51 PM
rw-r--r--
📄
wikipedia_example.cgi
922 bytes
12/12/2017 09:11:51 PM
rwxr-xr-x
📄
wilogo.gif
458 bytes
05/23/2016 07:58:56 AM
rw-r--r--
Editing: wikipedia_example.cgi
Close
#!/usr/bin/env perl use strict; use warnings; use CGI; my $cgi = CGI->new; print $cgi->header('text/html'); print << "EndOfHTML"; <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" > <html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"> <head> <title>A Simple CGI Page</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> </head> <body> <h1>A Simple CGI Page</h1> <form method="post" enctype="multipart/form-data"> Name: <input type="text" name="name" /><br /> Age: <input type="text" name="age" /><p /> <input type="submit" name="Submit!" value="Submit!" /> </form> <hr /> EndOfHTML if ( my $name = $cgi->param('name') ) { print "Your name is $name.<br />"; } if ( my $age = $cgi->param('age') ) { print "You are $age years old."; } print '</body></html>';