Help for this page

Select Code to Download

Select or download this

while (<DATAFILE>)
{
...
    $service = $_;
    chomp ($service);
}

Select or download this

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