sub mask_short_to_long { Net::Netmask->new( "0.0.0.0/" . shift )->mask }

# or as a real one-liner! :)

perl -MNet::Netmask -le 'print Net::Netmask->new( "0.0.0.0/" . shift )->mask' 24