#!/usr/bin/perl

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

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