#!/usr/bin/perl
use Storable;
my @huge = ('aaaaa' .. 'azaaa');
my $result = undef;
eval { $result = store \@huge, '/mnt/mfs/bigfile' };
$result = '(undef)' unless defined $result;
print "Result:$result  exception:$@\n";