$ perl -le" sub f { print scalar @_ }; f(1,2); f( @ARGV ); "
2
0

$ perl -le" sub f { print scalar @_ }; f(1,2); f( @ARGV ); " a b c
2
3

##</code><code>##

#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd /;
use Path::Tiny qw/ path /;
my $goner = path( 'goner' );
$goner->spew("1\n\2\n\3\n");
dd( $goner->slurp_raw );
$goner->append(  { truncate => 1 } );
dd( $goner->slurp_raw );
$goner->remove;
__END__
"1\r\n\2\r\n\3\r\n"
""