use strict;
use warnings;
my $prefix		= shift @ARGV;
my $cpu			= shift @ARGV;
my $sched_name	= shift @ARGV;
my $job_name	= shift @ARGV;

open (CFG, "/home/mt71124/scripts/maestro_inst.txt") or die ("Error opening config file: $1");
$/ = &;
while (<CFG>) {
	next if /^\#/;
	next unless ($_ =~ /^$prefix\s+$cpu\s+$sched_name\s+$job_name\s+(\w+)/);
	print;
	exit;
}
print "Contact the application oncall for this prefix to remediate./n The workstation is $cpu the schedule is $sched_name the job is $job_name\n";

##</code><code>##

syntax error at ./maestro_inst.pl line 16, near ") {"
syntax error at ./maestro_inst.pl line 21, near "}"
Execution of ./maestro_inst.pl aborted due to compilation errors.