10 lines
137 B
Perl
Executable file
10 lines
137 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
#use DBI;
|
|
use C4::Interface2;
|
|
|
|
startint("Circulation");
|
|
my $data=dialog("Borrower");
|
|
print $data;
|
|
endint();
|