That's strange. Just for fun, I used your idea and tried this. It works.

#!/usr/bin/perl

use strict;
use warnings;
use Shell qw(mail);

my $sh = Shell->new;
mail('-d');
[download]