10 lines
207 B
Perl
10 lines
207 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use PGP::Pipe;
|
||
|
|
|
||
|
|
my $pgp = PGP::new;
|
||
|
|
my $file = "myfile.dat";
|
||
|
|
my $password = "password";
|
||
|
|
print $pgp->Sign(File => $file, Password => $password, Armor => 1);
|