# cat image1
#!/usr/bin/perl;
use strict;
use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';

my $file = "/cgi-bin/PTF//WP_20140410_19_01_49_Pro.jpg";

print header,
start_html('Test'),
img({-src=>$file,-alt=>'image'}),
end_html;
#