#!/usr/bin/perl -w
if (condition) {
   system '/usr/.../another.pl';
}
print "Location: http://test/ \n\n";