#!/usr/local/bin/perl
while (@ARGV) {
    if ($ARGV[0] eq "ab.java") {
	system("touch a.class b.class");
    } elsif ($ARGV[0] =~ /^(.*).java/) {
	system("touch $1.class");
    }
    shift @ARGV;
}