diff --git a/brmbar3/import/import-items.pl b/brmbar3/import/import-items.pl
new file mode 100644
index 0000000..d0181a9
--- /dev/null
+++ b/brmbar3/import/import-items.pl
@@ -0,0 +1,15 @@
+# stdin in format: 8594002931643;Brmburky - hov.na cibul;-15
+use v5.12;
+while (<>) {
+	chomp;
+	say STDERR "--- $_";
+	my ($barcode, $name, $price) = split(/;/);
+	$price = -$price;
+	print <<EOT
+INSERT INTO currencies (name) VALUES ('$name');
+INSERT INTO accounts (name, currency, acctype) VALUES ('$name', (SELECT id FROM currencies WHERE name = '$name'), 'inventory');
+INSERT INTO exchange_rates (target, source, rate, rate_dir) VALUES ((SELECT id FROM currencies WHERE name = '$name'), (SELECT id FROM currencies WHERE name = 'Kč'), $price, 'target_to_source');
+INSERT INTO exchange_rates (target, source, rate, rate_dir) VALUES ((SELECT id FROM currencies WHERE name = 'Kč'), (SELECT id FROM currencies WHERE name = '$name'), $price, 'source_to_target');
+INSERT INTO barcodes (barcode, account) VALUES ('$barcode', (SELECT id FROM accounts WHERE name = '$name'));
+EOT
+}
diff --git a/brmbar3/import/import-people.pl b/brmbar3/import/import-people.pl
new file mode 100644
index 0000000..b91ddfc
--- /dev/null
+++ b/brmbar3/import/import-people.pl
@@ -0,0 +1,16 @@
+# text files containing credit amount
+my @users = qw(abyssal alexka axtheb aym b00lean biiter chido czestmyr da3m0n22 denisakera jam jenda jerry joe johny kappi kiki kxt lenka lui lukash nephirus niekt0 pasky pborky prusajr rainbof ramus ruza sachy sargon shady specz stevko stick sysop timthelion tlapka tma tomsuch trip tutchek uiop urcher vtec wenza zombie zufik zviratko);
+print "INSERT INTO transactions (description) VALUES ('Initial balance import');\n"; # assumed to be id 1
+for my $name (@users) {
+	my $balance = `cat BRMBAR/DATA/$name.txt 2>/dev/null || echo -n 0`;
+	my $side = 'credit';
+	if ($balance < 0) {
+		$balance = -$balance;
+		$side = 'debit';
+	}
+	print <<EOT
+INSERT INTO accounts (name, currency, acctype) VALUES ('$name', 1, 'debt');
+INSERT INTO barcodes (barcode, account) VALUES ('$name', (SELECT id FROM accounts WHERE name = '$name'));
+INSERT INTO transaction_splits (transaction, side, account, amount, memo) VALUES (1, '$side', (SELECT id FROM accounts WHERE name = '$name'), $balance, 'brmbar v1 balance');
+EOT
+}