#!/usr/bin/perl

use strict;
use 5.010;
use MikroTik::API;

my $host = "10.66.1.228";
my $user = "test";
my $pass = "test";

my $api = MikroTik::API->new ({
    host => $host,
    username => $user,
    password => $pass,
    use_ssl => 0,
    timeout => 3
});

$api->set_probe_before_talk (3);
$api->set_reconnect_after_failed_probe (0);
$api->cmd ("/export", {"file" => "test", "compact" => 1});