sub display {
    my $file = shift;
    my $plaintext = `gpg --decrypt $file`;
    open PAGER, "|less";
    print PAGER $plaintext;
    close PAGER;
}