#!/usr/bin/perl -w
use strict;
use Carp qw(cluck longmess shortmess);

my $long_message = longmess( "message from cluck() or confess()" );

my $file = "MYFILE";

system ("cat $file" or confess(),cluck(),carp());