Help for this page
#!/usr/bin/perl -w ... qq(<p style =\"background:url\($url\/$filename\)\;width:$w\;height: +$h\;\">); print "<br>"; }
#!/usr/bin/perl -w ... }