use strict;
use warnings;

open(my $cmd, qq{cd /D X:\\tmp\\Daten\\DB_Erstellung && X:\\usr\\local\\sqlite\\sqlite3.exe daten.db <X:/tmp/Daten/DB_Erstellung/import.cmd | } ) || die "Failed: $!\n";
print while (<$cmd>);
close($cmd);

=pod

#Daten in import.cmd
create table tbl1(one varchar(1), two smallint);
insert into tbl1 values('hello!',10);
insert into tbl1 values('goodbye', 20);
select * from tbl1;

=cut