Password file to puppet manifest

passwd2puppet.pl

#!/usr/local/bin/perl -w

use v5.16;
use strict;
use warnings;


while(<>) { 
        chomp;
        my ( $username, $password, $uid, $gid, $class, $change, $expire, $gecos, $home, $shell ) = split ':' // die "cannot parse $_";

        my $group  = getgrgid($gid) // die "error, group-id $gid cannot be found in this system";

        say <<EOM
user { '$username':
        ensure      => present,
        password    => '$password',
        home        => '$home',
        shell       => '$shell',
        comment     => '$gecos',
        uid         => $uid,
        gid         => '$group',
        managehome  => true,
}
EOM


}