diff --git a/btrbk b/btrbk
index 25c9713..e317d80 100755
--- a/btrbk
+++ b/btrbk
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -T
+#!/usr/bin/env perl
 #
 # btrbk - Create snapshots and remote backups of btrfs subvolumes
 #
@@ -1829,6 +1829,7 @@ sub vinfo_rsh($;@)
   my @ssh_options = ('-q');
   push(@ssh_options, '-p', $ssh_port) if($ssh_port ne "default");
   push(@ssh_options, '-c', $ssh_cipher_spec) if($ssh_cipher_spec ne "default");
+  push(@ssh_options, '-q');
   if($ssh_identity) {
     push(@ssh_options, '-i', $ssh_identity);
   } else {
@@ -3690,11 +3691,6 @@ sub exit_status
 
 MAIN:
 {
-  # set PATH instead of using absolute "/sbin/btrfs" (for now), as
-  # different distros (and even different versions of btrfs-progs)
-  # install the "btrfs" executable to different locations.
-  $ENV{PATH} = '/sbin:/bin:/usr/sbin:/usr/bin';
-
   Getopt::Long::Configure qw(gnu_getopt);
   my $start_time = time;
   @tm_now = localtime($start_time);