use Win32::Clipboard;
use Win32::AbsPath qw(Relative2Absolute);
-e $ARGV[0] 
    and print Win32::Clipboard (
        Win32::GetShortPathName 
            Relative2Absolute $ARGV[0]
    ) -> GetText()
    
    or print "File name?";