Thank you so much for the above.

use vars qw @ISA @EXPORT_OK $amastringsent $amastringsentback ;

@ISA = qw Exporter ;

@EXPORT_OK = qw $amastringsent $amastringsentback ;

cleared everthing right up.

Thank you for your help and your easy to follow example.

God bless you :)