Select Code to Download

#!/usr/bin/perl -l
use warnings;
...
fstream('sss') << "first";
fstream('sss') << "second" << "third";
fclobber('clb') << 'one' << 'and another';