#!/usr/bin/perl -w for my $file (@ARGV) { system( 'abiword', '--to=html', $file ) and warn "Cannot convert $file\n"; }