open (INPUT, $filename) || die "Can't open $filename: $!";
while (<INPUT>) {
    hack($_);
    slice($_);
    dice($_);
    vacuum_seal($_);
}
close INPUT || die "Wow, we're in for it now: $!";