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