#!/usr/bin/perl

use strict;
use warnings;

my $sold  = 10;
my $cost  = 250;
my $price = 300;

my $discount = 0.10;

# your code here