#!/usr/local/bin/perl

open(FILE_LIST, "ls *.txt|") || die "couldn't open file list: $!";
open(COMMAND_FILE, ">process.sh") || die "couldn't open process: $!";

while(<FILE_LIST>) {
   $old_name = $_;
   chomp($old_name);
   ($name, $extension) = split(/\./, $old_name);
   $new_name = join('', $name, ".tmp"); 
   $command = join(' ', "convert", $old_name, $new_name);
   print COMMAND_FILE $command, "\n";
}

close(FILE_LIST);
close(COMMAND_FILE);