fork download
  1. # use 5.10
  2. sub function1 {
  3. #my %args = @_;
  4. my @test = @_;
  5. print scalar @test;
  6. print @test;
  7. #print "'x' argument was '$args{x}'\n";
  8. }
  9. function1( x => 23, y => 24 );
Success #stdin #stdout 0s 18256KB
stdin
Standard input is empty
stdout
4x23y24