Select Code to Download

#use strict;
#use warnings;

open(CUST_DATA,'<', $cust_file) || die("Could not open file!");

#!/usr/bin/perl
#
...

}