Select Code to Download

while (defined (my $record = $file_object->next()) { # next creates a 
+record  object from data in the file
  $records->process();
}

# OO
$object->fold()->spindle()->mutilate();
#procedural
my $rc = mutilate(spindle(fold($data)));