#!/usr/bin/perl -w

use strict;
my( $COOKIE ) = "derby";
print $COOKIE, "\n";
asub();
print $COOKIE, "\n";

sub asub {
   $COOKIE = "derby_2";
}