my $input = do { binmode STDIN; local $/; ; }; #### 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 :)