use strict;
use warnings;
use feature 'say';

use Term::ReadKey;
ReadMode 3;
END { ReadMode 0 };

use Win32::Clipboard;
Win32::Clipboard::Empty();
END { Win32::Clipboard::Empty() };

my @list;
while ( 1 ) {
    if ( defined( my $char = ReadKey( .050 ))) {
        push @list, '' unless @list;
        $list[0] .= $char
    }
    elsif ( Win32::Clipboard::IsFiles() ) {
        push @list, Win32::Clipboard::GetFiles();
        Win32::Clipboard::Empty()
    }
    elsif ( @list ) {
        say for @list;
        @list = ()
    }
}