close $fh;
#unlink $filename;
-my $totpurl = "otpauth://totp/Debian?secret=$seed&issuer=Debian";
+my $totpurl = "otpauth://totp/Debian:$accountname?secret=$seed&issuer=Debian";
my $totppng = "data:image/png;base64, " .
encode_base64(GD::Barcode::QRcode->new($totpurl,
{ ModuleSize => 10 })->plot->png);