open (FOO, '/var/log/messages') or [die||warn||carp] "There was a problem: $!\n";