$datafile = "CheckUPS.in";
open (DATAFILE, $datafile) or die "Input data not found.\n";
while (<DATAFILE>)
{
	$TRACK = $_;
	chomp ($TRACK);
	$pager = $_;
	chomp ($pager);
	$service = $_;
	chomp ($service);
}

print "$TRACK $pager $service\n";