#!/usr/bin/perl

foreach $file (<*.txt>) {
    ($wrl = $file) =~ s/txt$/wrl/;
    $str = "mocaptxt2wrl $file > $wrl";
    print "$str\n";
    system($str);
}