view release on metacpan or  search on metacpan

examples/01.pl  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use ARGV::Abs ();

unless (@ARGV) {
    require File::Glob;
    @ARGV = File::Glob::bsd_glob('*');
}

ARGV::Abs->import;

print "$_\n" for @ARGV;