--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.perltidyrc	Mon Dec 28 22:44:27 2009 +0100
@@ -0,0 +1,2 @@
+--paren-tightness=2
+--square-bracket-tightness=2

--- a/ftpipe	Mon Dec 28 22:43:40 2009 +0100
+++ b/ftpipe	Mon Dec 28 22:44:27 2009 +0100
@@ -7,10 +7,6 @@
 use if $ENV{DEBUG} => qw(Smart::Comments);
 use feature qw(say switch);
 
-# host: backup.ccos.de
-# user: 54117
-# pass: aOUN9I6v
-
 my $opt_put   = 0;
 my $opt_get   = 0;
 my $opt_debug = 0;