perl -mFile::Copy=copy -e" copy @ARGV[ -s $ARGV[0] > -s $ARGV[1] ? ( 0, 1 ) : ( 1, 0 ) ]" \path\to\file1 \path\to\file2