#! /usr/bin/env perl
use strict;
use warnings;
use Archive::Rar::Passthrough;

my $rar = Archive::Rar::Passthrough->new();

my $rc = $rar->run(
    'command'   => 'a',
    'switches'  => [ '-m0' ],
    archive     => 'my.rar',
    files       => [ glob("*.txt") ],
);

# Fehlerbehandlung


print "Please enter the archive comment now (<CTRL>+D ends comment):\n";
$rc = $rar->run(
    'command' => 'c',
    archive   => 'my.rar',
);

# Fehlerbehandlung