#!/usr/bin/perl -w use strict; my @tests; if (@ARGV) { @tests = @ARGV; } else { @tests=qw(t1.cue t2.cue t3.cue); } foreach my $cue_file (@tests) { system("../cueparser $cue_file"); }