Select Code to Download

# this program reads through a file 
# line by line and prints "PRINTING"
...

sub flip {$ref = @_[0]; $$ref = !($$ref)}

$flop = !($flop)

sub flip { $@_[0] = !($@_[0] };