fork download
  1. #!/usr/bin/perl
  2.  
  3. my $a = 123;
  4. my $b = ".txt";
  5. print sprintf("%s%s", $a, $b);
Success #stdin #stdout 0s 5992KB
stdin
Standard input is empty
stdout
123.txt