# touch foo
# ln -s foo bar

# perl -MArchive::Tar -e'$Archive::Tar::FOLLOW_SYMLINK = 1; my $t = Archive::Tar->new; $t->add_files("bar"); $t->write( "baz.tgz", COMPRESS_GZIP );print $t->error(1); print $Archive::Tar::VERSION'
Could not write data for: bar at -e line 1
Could not write data for: bar at /usr/share/perl5/Archive/Tar.pm line 1293
        Archive::Tar::write('Archive::Tar=HASH(0x9dcf90)', 'baz.tgz', 9) 
called at -e line 1
1.78