my $text="../files/jack/2012/derpone.pdf";
$text = basename($text);
my $cgi = CGI->new; #Instantiate a CGI class
print $cgi->header, # First we create a header
$cgi->start_html('My first Perl website'), # Begin HTML page
$cgi->h1('Success'), # create the Tag <h1>TEXT</h1>

$cgi->p($text),

##</code><code>##


my $cgi = CGI->new; #Instantiate a CGI class
print $cgi->header, # First we create a header
$cgi->start_html('My first Perl website'), # Begin HTML page
$cgi->h1('Success'), # create the Tag <h1>TEXT</h1>
my $text="../files/jack/2012/derpone.pdf";
$text = basename($text);
$cgi->p($text),