my $TRAMP;
sub my_data {
  $TRAMP = shift if @_;
  return $TRAMP;
}