read contents of iOS pasteboard

pasteboard-ios.pl

#!/usr/local/bin/perl

use 5.010;
use strict;
use warnings;

use Mac::PropertyList;

my $data;
{
    local $/;
    open(my $fh,"<",'/private/var/mobile/Library/Caches/com.apple.UIKit.pboard/pasteboardDB');
    $data = <$fh>;
    close $fh;
}
sub read_pasteboard {
    my $plist = Mac::PropertyList::parse_plist( $data );
    for(@{$plist}){
        my $s = $_->as_perl;
        unless($s eq 1){          
            if($s->{name} eq 'com.apple.UIKit.pboard.general'){
                for(@{$s->{items}->{mobile}}){
                    say $_->{'public.utf8-plain-text'};
                }
            }
        }
    }
}

read_pasteboard();