perl -w

use strict;

local *INPUT;
open (INPUT, 'catalog.$test') || die "Error: $!\n";
print while (<INPUT>);
close INPUT || die "Worse Error:  $!\n";