#!/usr/local/bin/perl open(LISTE, "filer.txt"); foreach $_ () { $tmp_file = $_; chop($tmp_file); /(\w+).gif/; $file = $1; $new_file = "$file".".html"; $bilde = "$file".".gif"; open(HTML, ">"."$new_file"); print HTML "\n\nAl Mashriq\n"; print HTML "\n"; print HTML "
\n"; print HTML "\n"; print HTML "\n\n
\n"; print HTML "\n"; print HTML "
\n"; print HTML "\n"; print HTML "
\n"; print HTML "\"----------------\"

\n"; print HTML "al\@mashriq

\n"; print HTML "970428\n"; print HTML "

\n\n"; close(HTML); } close(LISTE);