--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Makefile	Mon Dec 28 22:44:27 2009 +0100
@@ -0,0 +1,16 @@
+SCRIPT = ftpipe
+
+prefix = /usr/local
+bindir = ${prefix}/bin
+
+DESTDIR = 
+
+all:
+	true
+
+install: 
+	install -m 0755 -d ${DESTDIR}${bindir}
+	install -m 0755 ${SCRIPT} ${DESTDIR}${bindir}/
+
+clean:
+	true

--- a/ftpipe	Mon Dec 28 22:12:30 2009 +0100
+++ b/ftpipe	Mon Dec 28 22:44:27 2009 +0100
@@ -38,6 +38,7 @@
 
     my $ftp = new FTP($ftp{host}, Debug => $opt_debug, Passive => 1);
     $ftp->login($ftp{user}, $ftp{pass});
+    $ftp->binary;
     $ftp->cwd($ftp{dir});
 
     given ($opt_cmd) {
@@ -90,8 +91,15 @@
 
     sub get {
         my $self = shift;
-        $self->SUPER::get(@_) or die "Can't put: " . $self->message;
+        $self->SUPER::get(@_) or die "Can't get: " . $self->message;
     }
+
+    sub binary {
+        my $self = shift;
+        $self->SUPER::binary(@_)
+          or die "Can't set binary mode: " . $self->message;
+    }
+
 }
 
 __END__