OK... that may be the wrong title, but here goes...

Well recently i came up with a snack that is tastes absolutly beautifull....
Well i was just wondering if anyone else had any "5 minute snacks" (snacks that can be made in under 5 minutes) that they really enjoyed and would like to share, for when you are busy and hungry at the same time.

HOWTO: Egg and cheese roll.

Cut roll in half.
Put cheese on inside of both halfs of the roll and start grilling the cheese.
Crack one egg into a frying pan, and fry egg.
By now the cheese should be grilled.
Take roll (with cheese still on top) out of the griller.
Place egg on one half of the roll.
Close the roll.
Eat roll.
Enjoy roll.

Update:
Thankyou radiantmatrix for converting this to perl for me :)

#!/usr/bin/perl -w
use Food;
use Cookware;
use strict;

my $roll = new Food('roll');
$roll->cut_in(2);
for (@{$roll->parts}) { $_->add_item('cheese') }
$roll->cook(-method => 'grill');

my $egg = new Food('egg');
$egg->crack( -into => Cookware::frypan );
$egg->cook( -method => 'fry', -using => $egg->cracked_into );

$egg->wait_for_done && $roll->stop_cooking;
## wait_for_done implies $egg->stop_cooking

$roll->parts[0]->add_item($egg);
$roll->reassemble;

$roll->consume;

print "Mmm... tasty" if ($roll->was_eaten && $roll->was_tasty);

# Wait for GarbageCollection to take place.
[download]