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