package SAS2;
our ($ini,$last);
sub _1 {$ini-$last}
sub _2{$last-$ini}
sub _3 {$ini-$last}
 
package main;
 
 
$ini=10;
$last=5;
  
print SAS2::_1(), SAS2::_2(), SAS2::_3();