Select Code to Download

#!/usr/bin/perl -w

...
qq(<p style =\"background:url\($url\/$filename\)\;width:$w\;height:
+$h\;\">);
print "<br>";
}

#!/usr/bin/perl -w

...

}