#!/usr/bin/perl
use strict;
use vars qw/$NAME $AGE $DATE/;

$NAME = 'jim';
$AGE = 29;
$DATE = `date`;

##</code><code>##

package Sunflower;
use strict;
use vars qw/$NAME $AGE $DATE/;

$NAME = 'jim';
$AGE = 29;
$DATE = `date`;

##</code><code>##

#!/usr/bin/perl
use strict;
use YAML;

my $abs_conf = '/etc/sunflower.conf';
my $config_data = YAML::LoadFile($abs_conf);

printf "Age is %s, name is %s, date is %s\n", 
   $config_data->{AGE}, $config_data->{NAME}, `date`;