Help for this page

Select Code to Download

Select or download this

foreach my $file (@ARGV) {
    print("converting $file...");
    open(FILE, "<$file");
    my @lines = <FILE>;
    close(FILE);