open(IN, '<', $source) or die "Couldn't open $source: $!\n";