Select Code to Download

C:\>ftype /?

...
and the script could be invoked as follows:

    script 1 2 3

#!/your/perl/here

...
my $lit="\nTotal to spend with medicines every month:      $acumes \$\
+n";
print('=' x length($lit),$lit, '=' x length($lit),"\n");

#!/your/perl/here

...
    print "two: $_";
    print "Enter data: ";
}