Select Code to Download

my $input = do { binmode STDIN; local $/; <STDIN>; };

 use Path::Tiny qw/ path /; 
use Data::Dump qw/ dd /; 
my $input = path( 'input' )->slurp_raw ;
my $output = Net::CIDR::cidr2octets( $input );
path( 'output')->spew_raw( $output );
dd( $input, $output ); ## for debugging/SOPW :)