#!/usr/bin/env perl

use strict;
use warnings;

use Archive::MoPaQ;

@ARGV or die "Usage: $0 filename.scm\n";

my $mpq = Archive::MoPaQ->new or die;
print $mpq->open($ARGV[0]);
$mpq->listopen("");
$mpq->extract(1);