#!/usr/bin/perl

use strict;
use warnings;

my @lines = <STDIN>;
if (@lines) {
  my $cmd = join(' ', '/bin/mail', @ARGV);
  open(my $ch, '|-', $cmd) || die "Error executing '$cmd': $!";
  foreach my $line (@lines) {
    print $ch $line;
  }
  close $ch;
}