fork download
  1. sub test
  2. {
  3. test2("Hola Mundo");
  4.  
  5. }
  6.  
  7. sub test2
  8. {
  9. #my ($self,$var1,$var2) = @_;
  10. #my ($var1,$var2) = @_;
  11. my ($var1) = @_;
  12. #print $self;
  13. print $var1;
  14. print "Mayra";
  15. #print $var2;
  16. }
Success #stdin #stdout 0.85s 73024KB
stdin
Standard input is empty
stdout
Standard output is empty