Select Code to Download

#!/usr/bin/perl
use warnings;
...
  no strict;
  eval $_;
}

> ./t7.pl
coordinate 4
...
$n=4      
coordinate $n
<4>