open(INPUT, $my_file) || die "Can't open: $!"; print $connection while (