fork download
  1. #!/usr/bin/perl
  2. # your code goes here
  3.  
  4. use strict;
  5. use warnings;
  6.  
  7. my $x = "INF";
  8. print $x * 1
  9.  
Success #stdin #stdout 0s 17760KB
stdin
Standard input is empty
stdout
Inf