azurestone · May 19, 2010 15:29
diff --git a/01.pl b/01.pl
 #!/usr/bin/perl -l

 use strict;
 use warnings;

 use Data::Dumper;

 use lib 'lib01';
 use Person;

 my $args = {
  name  =>  'AzureStone',
  age   =>  '18',
 };

 my $person = Person->new($args);

 $person->self_introduction;

 1;
	#!/usr/bin/perl -l

	use strict;
	use warnings;

	use Data::Dumper;

	use lib 'lib01';
	use Person;

	my $args = {
	name => 'AzureStone',
	age => '18',
	};

	my $person = Person->new($args);

	$person->self_introduction;

	1;
No results found