#
#========================================================================
#
-# Version 2.0.0beta1, released 30 Mar 2003.
+# Version 2.0.0, released 14 Jun 2003.
#
# See http://backuppc.sourceforge.net.
#
#========================================================================
use strict;
+no utf8;
use lib "/usr/local/BackupPC/lib";
use File::Path;
use Getopt::Std;
#
# Write out all the requested files/directories
#
+binmode(STDOUT);
my $fh = *STDOUT;
foreach my $dir ( @ARGV ) {
archiveWrite($fh, $dir);