view release on metacpan or  search on metacpan

t/script.pl  view on Meta::CPAN

#!/usr/bin/perl
use warnings;
use strict;

use ARGV::OrDATA;

while (<>) {
    print;
}

__DATA__
data 1
data 2