#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use DBI;

print "Content-type: text/html\n\n";

my $dbs = "DBI:ODBC:DRIVER={SQL Server};SERVER={dmssql01};DATABASE={sage200_dmstestconversion}"; 
my ($username, $password) = ('user', 'passwd');

my $dbh = DBI->connect($dbs, $username, $password) or die "$DBI::errstr\n";

my $sth = $dbh->prepare( 'backup database sage200 to DISK = \'d:\sage\sage200data\sagebackup2.bak\' ;') or die "Couldn't prepare statement: " . $dbh->errstr;


$sth->execute() or die "execute failed: " . $sth->errstr();

$sth->finish(); 
$dbh->disconnect();

print "Backup Completed";