#!/usr/bin/perluse 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);