Select Code to Download

#!/usr/bin/perl 
#use warnings;
...
    return $a;
  }

0,0,0,        :assigns a value to register 0,
    0,5,0,; :the value is 5
...
    0,3,0,;        : / 0 0 (illegal devide by 0 - 
            :ends program and outputs)