encrypt.pl

#!/usr/bin/perl

use GnuPG;
$username=$ARGV[0];
$file=$ARGV[1];
$size=@ARGV;
if($size!=2){
print "usage: encrypt.pl \n";
exit(0);
}
#$username="admin11";

#$file="/home/admin11/key/test.txt";


$homedir="/home/$username/";
$gpg=substr($file,rindex($file,"/")+1);
$gpgfile=$homedir.$gpg.'.gpg';
my $gpg=new GnuPG();
sub encrypt_test {
    printf "%-40s", "Encrypt";
    $gpg->encrypt(
                  recipient => "$username",
                  output => $gpgfile,
                  armor => 1,
                  plaintext => "$file",
                 );
}
    eval {
        no strict 'refs'; # We are using symbolic references

        &encrypt_test();
    };
    if ( $@ ) {
        print "not ok $i: $@";
    } else {
        print "ok $i\n";
    }