Is this a correct way of obtaining input from a file?

Select or download this

tracking number
pager number
paging service

Select or download this

$datafile = "CheckUPS.in";
open (DATAFILE, $datafile) or die "Input data not found.\n";
...
}

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

Select or download this

# Generate the outgoing notice, and send it
if (!($old eq $new)) {
...
    #$MailCmd = "cat $WORKDIR/$MAILOUT | $MAILBIN $EMAILS -s \"UPS Pac
+kage Tracking: $status\"";
    #system "$MailCmd";
}

Select or download this

MSG:
TO:  Airtouch Airtouch
CONTENTS:  Package ID Airtouch is/was   to

Select Code to Download