use Archive::Rar::Passthrough;
 my $rar = Archive::Rar::Passthrough->new();
 
 if (not $rar) {
   print "Could not find your 'rar' command'.\n";
 }
 
 $rar->run(
   command => 'a',
   switches => ['-m0'], 
   archive => 'my.rar',
   filelist_files => [ 'test.txt' ],

 );
 $rar->run(
   command => 'c',
  
   archive => 'my.rar',
);