The following code only archives $this_file, and the original contents of the tar file are lost. What am I doing wrong?
The problem seems to relate to the remove function, but I don't understand why, since I've already written to the tar file by that point.

#!/usr/local/bin/perl

use Archive::Tar; # handles tar files
my $lab_tar = Archive::Tar->new();
my $this_file = $ARGV[0];
my $tar_file = "foo.tar";

if(-e $tar_file){
  print "found archive\n";
  $lab_tar->read($tar_file);
  print $lab_tar->list_files();
  print "\n";
}
$lab_tar->add_files($this_file);
print $lab_tar->list_files();
print "\n";
$lab_tar->write($tar_file);
$lab_tar->remove($lab_tar->list_files());
#unlink $this_file;
[download]

Tom Melly, tom@tomandlu.co.uk