รหัสต้นฉบับเพื่อการศึกษา

File : pic.pl. ID : 0603

Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Frame

#!/usr/bin/perl
($name, $value) = split(/=/,$ENV{'QUERY_STRING'});    
$v{$name} = $value;
print"Content-type:text/html\n\n";   
print'<body>';
$f = join '','/home',$v{'file'};
@r = stat $f;
@fx = split("\/",$v{'file'});
$last = @fx - 1;
print"File Name: $fx[$last]";
if ($r[7]) { print" - Size: $r[7] Byte"; }
print"<br><img src=$v{'file'} border=5>";
print'<hr noshade color=#000099>END</body>';