1 use Test::More tests => 2;

     2 use strict;

     3 use warnings;

     4 

     5 my $x = "a";

     6 

     7 is($x, "a");

     8 like($x, qr/a/);

     9 

    10 

    11 __END__

    12 use Fatal qw(:void open close seek);

    13 use FindBin qw($Bin);

    14 

    15 use IO::File;

    16 

    17 my $out = new_tmpfile IO::File;

    18 my $err = new_tmpfile IO::File;

    19 

    20 

    21 my $pid = open(CUTTER, "|-") or do {

    22 	open(STDERR, ">&", $err);

    23 	open(STDOUT, ">&", $out);

    24 	exec "../mimecut";

    25 	die "Can't exec: $!\n";

    26 };

    27 

    28 open(X, "$Bin/mail1.eml");

    29 

    30 print CUTTER <X>;

    31 close(CUTTER);

    32 

    33 seek($out, 0, 0);

    34 print <$out>;