#!/usr/bin/perl -l
use warnings;
use strict;
use Student;  # the module used

my $std = Student->new();
print join " - " => ( $std->name(), $std->score() ); # prints No name - 0

my $std2 = Student->new( "melchi", 78 );
print join " - " => ( $std2->name(), $std2->score() ); # prints melchi - 78

print join " - " => ( $std->name("kunle"), $std2->score(90) ); # prints kunle - 90