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