print "Put file to server(y/n)?: ";
  my $prompt2 = <STDIN>;
  chomp $prompt2;
  if ( $prompt2 eq ( "y" | "Y" ) ) {
    put_page( $sftp, $rvars );
  }