open(R_SENDER,"<$file") or die $!;
my $sender = <R_SENDER>;
close R_SENDER;
chomp $sender;