System Functions 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);