Perl version of Junos Snapshot Administrator