#!/usr/bin/perl

use strict;

my $flower;
for($flower = 0; $flower < 1; $flower++)
{
     die;
}