#!/usr/bin/perl
#

use Recipe;
my $r = Recipe->new();
my $text = $r->get_recipe_text($ARGV[0]) or print $r->errstr();
print "$text\n";

$r->disconnect();